home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / SOFCAS / CLIP420.ZIP / START.EXE / DOS / PCCOPYA.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-03-19  |  8.5 KB  |  190 lines
  1. @echo off
  2. REM Este comando está concebido para realizar copias de seguridad
  3. REM en disco duro mediante la utilidad de compresión ARJ.EXE
  4. REM Necesitará disponer de esta utilidad en su ruta de acceso para
  5. REM Su correcto funcionamiento
  6. set origen=%r_dat%
  7. REM Cambie la ubicación se archivos de datos de la siguiente línea, si procede
  8. if %origen%z==z set origen=c:\contacli
  9. REM Cambie la denominación de su disquetera en la siguiente línea, si procede
  10. set destino=A:
  11. if %origen%.==. set origen=c:\contacli
  12. REM Si no hay parametros...
  13. if %1z==z goto sintaxis
  14. REM Si sólo hay un parametro (número de empresa) entonces copiar...
  15. if %2z==z goto copiar
  16. REM Si el segundo y tercer parámetro es /rapido y /r entonces restaurar del duro
  17. if %2%3==/rapido/r goto restturbo
  18. if %2%3==/RAPIDO/R goto restturbo
  19. if %2%3==/R/RAPIDO goto restturbo
  20. if %2%3==/r/rapido goto restturbo
  21. REM Si el segundo parámetro es /R entonces restaurar normal
  22. if %2==/r goto restaurar
  23. if %2==/R goto restaurar
  24. REM Si el segundo parámetro es rapido entonces copiar en disco duro normal
  25. if %2==/rapido goto copiarturbo
  26. if %2==/RAPIDO goto copiarturbo
  27. REM Demás casos: error y enseñar sintaxis del comando
  28. goto sintaxis
  29.  
  30. :copiar
  31. set empresas=%origen%\ps???%1?.*
  32. if %1==TODAS set empresas=%origen%\ps??????.*
  33. if %1==todas set empresas=%origen%\ps??????.*
  34. set archivo=%destino%\ps%1.A01
  35. if %1==TODAS set archivo=%destino%\PSTODAS.A01
  36. if %1==todas set archivo=%destino%\PSTODAS.A01
  37. echo                  ┌───────────────────┐
  38. echo                  │     CONTACLIP     │
  39. echo                  └───────────────────┘
  40. echo ┌───────────────────────────────────────────────────────────┐
  41. echo │             COPIA DE SEGURIDAD EN DISQUETES               │
  42. echo └───────────────────────────────────────────────────────────┘
  43. echo                 Nº DE EMPRESA A COPIAR : %1
  44. echo      Introduzca un disquete formateado en la unidad %destino%
  45. echo                        PRECAUCION:
  46. echo   Tenga en cuenta que se borrará previamente lo que hubiese
  47. echo          en el disquete antes de hacer la copia.
  48. echo       Si desea cancelar el proceso, pulse Control-C
  49. echo      Si desea comenzar a copiar pulse cualquier tecla
  50. echo  ───────────────────────────────────────────────────────────
  51. pause > nul
  52. if not exist %empresas% goto errorcopia
  53. arj a -a1 -m3 -s -jf -js -jt "-vvasdel %destino%\*.*" -w%origen%\ %archivo% %empresas%
  54. set empresas=
  55. set archivo=
  56. goto end
  57.  
  58. :copiarturbo
  59. set destino=%origen%
  60. set empresas=%origen%\ps???%1?.*
  61. if %1==TODAS set empresas=%origen%\ps??????.*
  62. if %1==todas set empresas=%origen%\ps??????.*
  63. set archivo=%destino%\ps%1.ARJ
  64. if %1==TODAS set archivo=%destino%\PSTODAS.ARJ
  65. if %1==todas set archivo=%destino%\PSTODAS.ARJ
  66. echo                  ┌───────────────────┐
  67. echo                  │     CONTACLIP     │
  68. echo                  └───────────────────┘
  69. echo ┌───────────────────────────────────────────────────────────┐
  70. echo │             COPIA DE SEGURIDAD EN DISCO DURO              │
  71. echo └───────────────────────────────────────────────────────────┘
  72. echo                 Nº DE EMPRESA A COPIAR : %1
  73. echo       Si desea cancelar el proceso, pulse Control-C
  74. echo      Si desea comenzar a copiar pulse cualquier tecla
  75. echo  ───────────────────────────────────────────────────────────
  76. pause > nul
  77. if not exist %empresas% goto errorcopia
  78. arj u -a1 -jm -s -jf -js -jt -w%origen%\ %archivo% %empresas%
  79. set empresas=
  80. set archivo=
  81. goto end
  82.  
  83. :restaurar
  84. set empresas=ps???%1?.*
  85. if %1==TODAS set empresas=ps??????.*
  86. if %1==todas set empresas=ps??????.*
  87. echo                         ┌───────────────────┐
  88. echo                         │     CONTACLIP     │
  89. echo                         └───────────────────┘
  90. echo ┌────────────────────────────────────────────────────────────────────────────┐
  91. echo │          RESTAURACION DE LA COPIA DE SEGURIDAD AL DISCO DURO               │
  92. echo └────────────────────────────────────────────────────────────────────────────┘
  93. echo                    Nº DE EMPRESA A RESTAURAR : %1
  94. echo         Introduzca el primer disquete de la copia en la unidad %destino%
  95. echo                              PRECAUCION:
  96. echo      Tenga en cuenta que, si hubiese la misma contabilidad en su disco duro
  97. echo      que en la copia de seguridad, ésta quedará sustituída por la existente
  98. echo       en el disquete. Asegúrese de que es esto realmente lo que pretende.
  99. echo               Si desea cancelar el proceso, pulse Control-C
  100. echo         Si desea comenzar a restaurar la copia pulse cualquier tecla
  101. echo  ────────────────────────────────────────────────────────────────────────────
  102. pause > nul
  103. if exist %destino%\PSTODAS.A01 goto resttodas
  104. if exist %destino%\PS%1.A01 goto rest
  105. goto errorrest
  106.  
  107. :resttodas
  108. arj x -jf -c -y -vv %destino%\PSTODAS.A01 %empresas%
  109. goto end
  110.  
  111. :rest
  112. arj x -jf -c -y -vv %destino%\PS%1.A01 %empresas%
  113. goto end
  114.  
  115. :restturbo
  116. set destino=%origen%
  117. set empresas=ps???%1?.*
  118. if %1==TODAS set empresas=ps??????.*
  119. if %1==todas set empresas=ps??????.*
  120. echo                         ┌───────────────────┐
  121. echo                         │     CONTACLIP     │
  122. echo                         └───────────────────┘
  123. echo ┌────────────────────────────────────────────────────────────────────────────┐
  124. echo │          RESTAURACION DESDE DISCO DURO DE LA COPIA DE SEGURIDAD            │
  125. echo └────────────────────────────────────────────────────────────────────────────┘
  126. echo                    Nº DE EMPRESA A RESTAURAR : %1
  127. echo                              PRECAUCION:
  128. echo      Tenga en cuenta que, si hubiese la misma contabilidad en su disco duro
  129. echo      que en la copia de seguridad, ésta quedará sustituída por la existente
  130. echo       en la copia.    Asegúrese de que es esto realmente lo que pretende.
  131. echo               Si desea cancelar el proceso, pulse Control-C
  132. echo         Si desea comenzar a restaurar la copia pulse cualquier tecla
  133. echo  ────────────────────────────────────────────────────────────────────────────
  134. pause > nul
  135. if exist %destino%\PSTODAS.ARJ goto resttodturbo
  136. if exist %destino%\PS%1.ARJ goto restt
  137. goto errorrest
  138.  
  139. :resttodturbo
  140. arj x -jf -c -y %destino%\PSTODAS.ARJ %empresas%
  141. goto end
  142.  
  143. :restt
  144. arj x -jf -c -y %destino%\PS%1.ARJ %empresas%
  145. goto end
  146.  
  147. :sintaxis
  148. echo ┌───────────────────────────────────────────────────────────────────────┐
  149. echo │                             CONTACLIP                                 │
  150. echo ├───────────────────────────────────────────────────────────────────────┤
  151. echo │ PCCOPYA.BAT Copia de seguridad y restauración de los datos de         │
  152. echo │             de ContaClip, mediante ARJ multivolumen.                  │
  153. echo │                                                                       │
  154. echo │ LA SINTAXIS ES : PCCOPYA número [/R] [/RAPIDO]                        │
  155. echo │                                                                       │
  156. echo │                  /R activa la modalidad de restauración.              │
  157. echo │                                                                       │
  158. echo │                  /RAPIDO el archivo de copia se hace en el propio     │
  159. echo │                  disco duro                                           │
  160. echo │                                                                       │
  161. echo │ Esta opción solo es posible si se dispone de la utilidad ARJ.EXE      │
  162. echo │                                                                       │
  163. echo │   Ejemplos:                                                           │
  164. echo │                                                                       │
  165. echo │   PCCOPYA 77           Copia de la contabilidad nº 77 en disquettes   │
  166. echo │   PCCOPYA TODAS        Copia todas las contabilidades existentes      │
  167. echo │                                                                       │
  168. echo │   PCCOPYA 77 /R        Restauración de dicha contabilidad             │
  169. echo │   PCCOPYA TODAS /R     Restaura todas las contabilides de la copia    │
  170. echo └───────────────────────────────────────────────────────────────────────┘
  171. goto end
  172.  
  173. :errorcopia
  174. echo ───────────────────────────────────────────────────
  175. echo NO EXISTEN FICHEROS DE LA CONTABILIDAD SELECCIONADA
  176. echo ───────────────────────────────────────────────────
  177. goto end
  178.  
  179. :errorrest
  180. echo ────────────────────────────────────────────────────────────
  181. echo NO EXISTE COPIA DE SEGURIDAD DE LA CONTABILIDAD SELECCIONADA
  182. echo ────────────────────────────────────────────────────────────
  183. dir %destino%
  184. goto end
  185.  
  186. :end
  187. set empresas=
  188. set origen=
  189. set destino=
  190.